home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / share / demolar / Quark / data.z / QuarkXPress 4.0 Demo.exe / 0 / PSHD / 1024 < prev    next >
Text File  |  1998-01-08  |  876b  |  16 lines
  1. /upl{dup length exch 0 0{3 copy exch pop get dup 64 lt
  2.  {32 sub 4 copy exch pop put pop 1}{63 sub exch 1 add exch
  3.  4 copy 3 -1 roll pop getinterval 5 copy 3 1 roll pop pop
  4.  putinterval pop}ifelse dup 4 -1 roll add 3 1 roll add
  5.  dup 4 index ge{exit}if}loop 4 -1 roll pop pop 0 exch getinterval}B
  6. /bmp{save 16 1 roll{0 H}if/@1 X 4 index div add 3 1 roll
  7.   5 index div add t div 3 1 roll div S @1 1 and 1 eq @1 2 and 2
  8.   eq{g dup{0}{1}ifelse H .5 .5 idtransform abs exch abs 2 copy
  9.   neg 1 add exch neg 1 add exch F rc V G}if
  10.   {currentgray 1. exch sub H}if exch
  11.   {string/S0 X pop/sf findfont setfont exch 1 exch div 1 index 1 exch div
  12.   S 0 1 3 -1 roll 1 sub{{currentfile S0 readline pop currentfile str readline pop
  13.   cvi dup abs 1 sub 3 index m exch M 0 lt{exit}if}loop pop}for}
  14.   {3 index 0 0 5 index 0 0 mtx astore exch 1 rdstr imagemask}
  15.   ifelse restore}B
  16.